home *** CD-ROM | disk | FTP | other *** search
/ World of Video / World of Video.iso / gfxprograms / egs / egs-sorcery-install / install_sorceryconfig < prev    next >
Text File  |  1995-02-13  |  4KB  |  176 lines
  1. ; 
  2. ; $VER: Installation script for EGS-Dock config files (06-18-94)
  3. ;
  4. ; written by Brian C. Wright
  5. ;
  6. ; 
  7. ;    Installer and Installer project icon
  8. ;    (c) Copyright 1991-93 Commodore-Amiga, Inc.  All Rights Reserved.
  9. ;    Reproduced and distributed under license from Commodore.
  10. ;
  11. ;    INSTALLER SOFTWARE IS PROVIDED "AS-IS" AND SUBJECT TO CHANGE;
  12. ;    NO WARRANTIES ARE MADE.  ALL USE IS AT YOUR OWN RISK.  NO LIABILITY
  13. ;    OR RESPONSIBILITY IS ASSUMED. 
  14. ;
  15. ;
  16.  
  17. (welcome "EGS-Dock Config Installation")
  18.  
  19. (set confbits   %0000000000)
  20. (set confchoice 0)
  21.  
  22. (set configf1 "Integrated (A) Blue Prefs")    ; %0000000001
  23. (set configf2 "Integrated (A) No Prefs")    ; %0000000010
  24. (set configf3 "Integrated (A) icons only")    ; %0000000100
  25. (set configf4 "Integrated (A) Rainbow Prefs")    ; %0000001000
  26. (set configf5 "Integrated (S) Rainbow Prefs")    ; %0000010000
  27. (set configf6 "Integrated (S) with Apps")    ; %0000100000
  28. (set configf7 "Non-Integrated with Apps")    ; %0001000000
  29. (set configf8 "Non-Integrated icons only")    ; %0010000000
  30. (set configf9 "Non-Integrated Orange Prefs")    ; %0100000000
  31. (set configf10 "Text only")            ; %1000000000
  32.  
  33. (set config1 "s/IntegratedABluePrefs")
  34. (set config2 "s/IntegratedANoPrefs")
  35. (set config3 "s/IntegratedANoPrefsNoApps")
  36. (set config4 "s/IntegratedARainbowPrefs")
  37. (set config5 "s/IntegratedSRainbowPrefs")
  38. (set config6 "s/IntegratedSAppsNoPrefs")
  39. (set config7 "s/NonIntegratedAppsNoPrefs")
  40. (set config8 "s/NonIntegratedNoPrefsNoApps")
  41. (set config9 "s/NonIntegratedOrangePrefs")
  42. (set config10 "s/TextOnly")
  43.  
  44. (set configdest "EGS:s/EGSDock.config")
  45.  
  46. (procedure copyconfig
  47.   (
  48.     (set configsource (tackon egs-dest configsource))
  49.     (copyfiles
  50.          (help @copyfiles-help)
  51.          (source configsource)
  52.          (dest "EGS:s")
  53.          (newname configdest)
  54.     )
  55.   )
  56. )
  57.  
  58. (set egs-assign
  59.         (getassign "EGS")
  60. )
  61.  
  62. (if (= egs-assign "")
  63.         (
  64.              (abort "\n\nNo EGS: assign available.\n\n" 
  65.                     "Please assign EGS and restart the installation.")
  66.         )
  67. )
  68.  
  69. (if (exists "EGS:EGS-Sorcery" (noreq))
  70.     (set egs-dest "EGS:EGS-Sorcery")
  71.     (set egs-dest 
  72.              (askdir
  73.         (prompt "I can't find your EGS-Sorcery installation? "
  74.                         "Where is EGS-Sorcery located?")
  75.                 (help @askdir-help)
  76.                 (default "EGS:")
  77.              )
  78.     )
  79. )
  80.  
  81. (set @default-dest "EGS:s")
  82.     
  83. (message "Please note that what you are about to do is install "
  84.          "an EGSDock.config file.  It will not overwrite the old "
  85.          "one if it exists, but will move it to EGSDock.config.bak. "
  86.          "\n\nIf you are unfamiliar with this, you may abort now."
  87. )
  88.  
  89. (set which-conf-file
  90.         (askchoice
  91.               (prompt "Which configuration file would you like installed?")
  92.               (help @askchoice-help)
  93.               (choices configf1 configf2 configf3 configf4 configf5
  94.                        configf6 configf7 configf8 configf9 configf10
  95.               )
  96.               (default 0)
  97.         )
  98. )
  99.  
  100. (if (> (exists configdest (noreq)) 0)
  101.         (rename "EGS:s/EGSDock.config" "EGS:s/EGSDock.config.bak")
  102. )
  103.  
  104.  
  105.  
  106. (if (= which-conf-file 0)
  107.     (
  108.     (set configsource config1)
  109.         (copyconfig)
  110.     )
  111. )
  112.  
  113. (if (= which-conf-file 1)
  114.     (
  115.     (set configsource config2)
  116.         (copyconfig)
  117.     )
  118. )
  119.  
  120. (if (= which-conf-file 2)
  121.     (
  122.     (set configsource config3)
  123.         (copyconfig)
  124.     )
  125. )
  126.  
  127. (if (= which-conf-file 3)
  128.     (
  129.     (set configsource config4)
  130.         (copyconfig)
  131.     )
  132. )
  133.  
  134. (if (= which-conf-file 4)
  135.     (
  136.     (set configsource config5)
  137.         (copyconfig)
  138.     )
  139. )
  140.  
  141. (if (= which-conf-file 5)
  142.     (
  143.     (set configsource config6)
  144.         (copyconfig)
  145.     )
  146. )
  147.  
  148. (if (= which-conf-file 6)
  149.     (
  150.     (set configsource config7)
  151.         (copyconfig)
  152.     )
  153. )
  154. (if (= which-conf-file 7)
  155.     (
  156.     (set configsource config8)
  157.         (copyconfig)
  158.     )
  159. )
  160.  
  161. (if (= which-conf-file 8)
  162.     (
  163.     (set configsource config9)
  164.         (copyconfig)
  165.     )
  166. )
  167.  
  168. (if (= which-conf-file 9)
  169.     (
  170.     (set configsource config10)
  171.         (copyconfig)
  172.     )
  173. )
  174.  
  175. (complete 100)
  176.